home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / disk utilities / backup / backup_restore / backup_src_v3.20.lha / FreshenArchive < prev    next >
Encoding:
Text File  |  1996-05-24  |  439 b   |  20 lines
  1. /* FreshenArchive */
  2. /* 24 May 1996 19:25:38 */
  3.  
  4. RevFileName = 'Backup_Rev.Rev'
  5. LHASrcName = 'Reserve/Backup_Src_V3.'
  6. LHABinName = 'Reserve/Backup_Bin_V3.'
  7.  
  8. if open('RevFile', RevFileName) = 0 then
  9.     DO
  10.     say 'Cannot open ' | RevFileName
  11.     exit
  12.     END
  13.  
  14. RevNr = readln('RevFile')
  15. LHASrcName = LHASrcName || RevNr || '.lha'
  16. LHABinName = LHABinName || RevNr || '.lha'
  17.  
  18. address command 'lha f ' || LHASrcName
  19. address command 'lha f ' || LHABinName
  20.